home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / fapx / fapxwthr.plp < prev   
Text File  |  1993-07-08  |  1KB  |  38 lines
  1. /************************************************************************
  2. *    ＮＩＦＴＹの今週の天気予報（ＮＡＰＬＰＳ）を見ながら        *
  3. *    ＮＡＰＬＰＳ 画像データを 切り出し 保存 する    処理        *    *            presented  by -なる-☆早川    (92.12.30)    *
  4. *            customized by コノミ        (93.03.11)    *
  5. *************************************************************************/
  6. %WEATHER{
  7.     [WTHRno,CNTno]
  8.     footnote({天気予報(NAPLPS) }|WTHRno|{ の }|CNTno|{ を確認中});
  9.     display({\n今週の天気予報（NAPLPS）を確認します\n});
  10.     receive(TEMP2|{WEATHER.TMP});
  11.     type({GO WEATHER\n});
  12.     WAITCHAR(Wtime2,{ 7. NAPLPS天気予報\n＞},{type({7\n})});
  13.     WAITCHAR(Wtime2,{ 2. サービスに入る\n＞},{type({2\n})});
  14.     case(WTHRno={},
  15.         {Yes},    {WAITCHAR(Wtime2*2,{(J},{type({E\n})})},
  16.         {No},    {WAITCHAR(Wtime2*2,{(J},{type(WTHRno|{\n})});
  17.              case(CNTno={},
  18.                 {Yes},    {WAITCHAR(Wtime2*2,{(J},{type({E\n})})},
  19.                 {No},    {WAITCHAR(Wtime2*2,{(J},
  20.                             {type(CNTno|{\n})});
  21.                      WAITCHAR(Wtime2*2,{(J},{type({\n})})}
  22.             )});
  23.  
  24.     WAITCHAR(Wtime2*2,{ 2. サービスに入る\n＞},{});
  25.     stoprec;
  26.     dispoff(!DEBUG);
  27.     %file    @crefile(LOG2|{WEATHER},{NPB});
  28.     %cdir    @getcdir;setcdir(CDIR);
  29.     command({txf -npcut }|    { -i }|TEMP2|{WEATHER.TMP}|
  30.                 { -o }|LOG2|{WEATHER\}|file);
  31.     setcdir(cdir);
  32.     dispoff({No});
  33.     delfile(TEMP2|{WEATHER.TMP});
  34.     display({\n天気予報(NAPLPS)確認処理を完了しました\n});
  35.     };
  36.  
  37. WEATHER(AREA,CITY);
  38.